home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1996 #3
/
Amiga Plus CD - 1996 - No. 3.iso
/
demo-versionen
/
databaseprofessional_v3.0
/
picbase
/
deletepic.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-08-12
|
1KB
|
71 lines
/* DeletePic.rexx, 04.04.95 Jörg Richter */
OPTIONS RESULTS
NL = D2C(10)
ADDRESS DataBase
Total
IF result = 0 THEN
EXIT
Request "_Löschen|_Markierte|_Abbruch" "ACHTUNG! Gelöscht werden:" || NL || NL || "· das Orginalbild" || NL || "· das Vorschaubild" || NL || "· der Datensatz" || NL || NL || "Sind Sie sicher ?"
res = RC
IF res = 0 THEN
EXIT
IF res = 1 THEN DO
GetData $F1
bild = result
GetData $F4
thumb = result
ADDRESS COMMAND
'C:Delete > NIL: ' || bild
fehler1 = RC
'C:Delete > NIL: ' || thumb
fehler2 = RC
ADDRESS DataBase
IF fehler1 ~= 0 THEN
Request "_Ok" "Das Orginalbild konnte nicht gelöscht werden"
IF fehler2 ~= 0 THEN
Request "_Ok" "Das Vorschaubild konnte nicht gelöscht werden"
Delete
END
ELSE DO
Display Off
LeftTotal
Show Marked
weiter = 0
DO WHILE weiter = 0
IsMarked
IF RC = 0 THEN DO
GetData $F1
bild = result
GetData $F4
thumb = result
ADDRESS COMMAND
'C:Delete > NIL: ' || bild
'C:Delete > NIL: ' || thumb
ADDRESS DataBase
Delete
END
ELSE DO
RightOne
weiter = RC
END
END
Show All
LeftTotal
Display On
Show
END